#!/usr/bin/qdroid
#codepage=utf-8;

# первичный тест после сборки на наличие и работу всех компонент полной поставки QDroid.


// требует версию qDROID не ниже 2009.04.28_1500
var res;
var LibName;
var obj_n;
var StrPassed ="=======>[V] Passed. :";
var StrError  ="=======>[X] ERROR!  :";
var StrWarning="=======>[?] Warning.:";
#---------------------------------------------------------------------------#
LibName="qdlib_tcpserver";

TestLibraryLoad(LibName)
try
 {
    obj_n=new TcpServer;
    print (" created object: ID=["+obj_n.GetId()+"] Name=["+obj_n.objectName+"]");
    print (""+StrPassed+LibName+":: object get  test.");
 } catch (e)
  {
     print (e);
     print (""+StrError+LibName+"::  object get  test. ");
  };
#---------------------------------------------------------------------------#
LibName="qdlib_bytearray";

TestLibraryLoad(LibName)
try
 {
    obj_n=new ByteArray(4);
    print (" created object: Name=["+obj_n.objectName+"]");
    print (""+StrPassed+LibName+":: object get  test.");
 } catch (e)
  {
     print (e);
     print (""+StrError+LibName+"::  object get  test.");
  };

#---------------------------------------------------------------------------#
LibName="qdlib_simplebot";

TestLibraryLoad(LibName)
try
 {
    obj_n=new SimpleBot(4);
    print (" created object: ID=["+obj_n.GetId()+"] Name=["+obj_n.objectName+"]");
    print (""+StrPassed+LibName+":: object get  test .");
 } catch (e)
  {
     print (e);
     print (""+StrError+LibName+"::  object get  test .");
  };

#---------------------------------------------------------------------------#
LibName="tcpiplink_otpd";

TestLibraryLoad(LibName)
try
 {
    obj_n=new tcpiplink_otpd;
    print (" created object: ID=["+obj_n.GetId()+"] Name=["+obj_n.objectName+"]");
    print (""+StrPassed+LibName+":: object get  test .");
 } catch (e)
  {
     print (e);
     print (""+StrError+LibName+"::  object get  test . ");
  };


#---------------------------------------------------------------------------#
LibName="seriallink_otpd";

TestLibraryLoad(LibName)
try
 {
    obj_n=new seriallink_otpd;
    print (" created object: ID=["+obj_n.GetId()+"] Name=["+obj_n.objectName+"]");
    print (""+StrPassed+LibName+":: object get  test .");
 } catch (e)
  {
     print (e);
     print (""+StrError+LibName+"::  object get  test. ");
  };







#---------------------------------------------------------------------------#
#return 0;





#===========================================================================#
function TestLibraryLoad(LibName)
{
var res =0 ;
var resstr="";
// пробуем загрузить расширение. если не загрузили ранее - должны выдать "0" (ок)
res=loadlib_qd(LibName); // <<----- загружаем расширение
if (res="0") resstr=StrPassed;
if (res<"0") resstr=StrError;
if (res>"0") resstr=StrWarning;
print (""+resstr+LibName+":: loading test (-1=error; 0=ok; +1=warnings)["+res+"]");
};
